﻿Public Class HukukBorcBilgileriGirisi
    Inherits Process

    Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
        Select Case e.EventType
            Case EventType.Initialize
				Text = "Borç Bilgileri Girişi"
                InitialHelp = "Kimlik bilgisini girin."
                AddField("@Sigortali", "nl", "", "Sigortalı bilgisini girmelisiniz.")
                StartBody()
                AddList()
				List.AddColumns("rowid(h),*yil(Yıl;c;60),*ay(Ay;c;60),*borc(Borç;m;80),*acik(Açıklama;l;100%),*makbuzno(Makbuz No.;c;80),*tarih(Tarih;d;80)")
			Case EventType.ValidateForm
				Rs = Hukuk.Af2005.TaksitListesi(Local, Input("Sigortali"))
				If Rs.EOF Then Warning("Belirtilen sigortalıya ait borç bilgisi bulunamadı.")
				List.DataSource = Rs
				Buttons.Show("Save,Reset")
				e.Result = True
            Case EventType.Save
                If Not Confirm("Kaydetmek istediğinizden emin misiniz?") Then Exit Sub
                Hukuk.Af2005.Kaydet(Local, List)
                Info("Bilgiler kaydedildi.")
        End Select
    End Sub

End Class
